home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / povclk / ctrlpaus.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-11  |  478b  |  14 lines
  1. { Program to Return an batch file ERRORLEVEL of 1 if CTRL is held down }
  2. { So simple, my cat wrote it.        - Mitchell Ross                   }
  3.  
  4. program CtrlPause;
  5.  
  6. Var ShiftByte : byte absolute $0000:$0417;
  7.            { L shift = 2         R Shift = 1    }
  8.            { CTRL = 4            ALT = 8        }
  9.            { NumLock = 32        ShiftLock = 64 }
  10.            { ScrollLock = 16                    }
  11.  
  12. begin
  13.   If (ShiftByte AND 4) <> 0 then   HALT(1);
  14. end.